BBS in a Box 7/BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso/Files/Hyper/Me-Mz/MegaHome™ II 3.03.cpt/MegaHome™ II 3.03/Home/background_6480.xml

Extensible Markup Language | 1992-02-21 | 23KB | 530 lines

<?xml version="1.0" encoding="utf-8" ?>
<!DOCTYPE background PUBLIC "-//Apple, Inc.//DTD background V 2.0//EN" "" >
<background>
    <id>6480</id>
    <filler1>0</filler1>
    <bitmap>BMAP_5496.pbm</bitmap>
    <cantDelete> <true /> </cantDelete>
    <showPict> <true /> </showPict>
    <dontSearch> <false /> </dontSearch>
    <link rel="stylesheet" type="text/css" href="stylesheet_7199.css" />
    <part>
        <id>34</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>30</left>
            <top>24</top>
            <right>508</right>
            <bottom>323</bottom>
        </rect>
        <style>transparent</style>
        <showName> <false /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <false /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font></font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>deselect (ii)</name>
        <script>on mouseUpdoADeselectend mouseUp</script>
    </part>
    <part>
        <id>6</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>202</left>
            <top>321</top>
            <right>225</right>
            <bottom>342</bottom>
        </rect>
        <style>transparent</style>
        <showName> <false /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <false /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>26402</icon>
        <textAlign>center</textAlign>
        <font></font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>Prev</name>
        <script>on mouseUpvisual wipe rightgo prev cd in this bgend mouseUp</script>
    </part>
    <part>
        <id>7</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>316</left>
            <top>321</top>
            <right>339</right>
            <bottom>342</bottom>
        </rect>
        <style>transparent</style>
        <showName> <false /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <false /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>1832</icon>
        <textAlign>center</textAlign>
        <font></font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>Next</name>
        <script>on mouseUpvisual wipe leftgo next cd in this bgend mouseUp</script>
    </part>
    <part>
        <id>8</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <true /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <true /> </lockText>
        <rect>
            <left>293</left>
            <top>325</top>
            <right>319</right>
            <bottom>337</bottom>
        </rect>
        <style>transparent</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Geneva</font>
        <textSize>9</textSize>
        <textStyle>plain</textStyle>
        <textHeight>12</textHeight>
        <name>Page</name>
        <script></script>
    </part>
    <part>
        <id>29</id>
        <type>field</type>
        <visible> <false /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <true /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <true /> </lockText>
        <rect>
            <left>74</left>
            <top>266</top>
            <right>205</right>
            <bottom>285</bottom>
        </rect>
        <style>transparent</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <true /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font>Geneva</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <textHeight>16</textHeight>
        <name>OPENF</name>
        <script></script>
    </part>
    <part>
        <id>37</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>143</left>
            <top>325</top>
            <right>198</right>
            <bottom>340</bottom>
        </rect>
        <style>rectangle</style>
        <showName> <true /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Geneva</font>
        <textSize>9</textSize>
        <textStyle>plain</textStyle>
        <name>Open Stack</name>
        <script>on mouseUpdoMenu "Open Stack..."end mouseUp</script>
    </part>
    <part>
        <id>38</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>343</left>
            <top>325</top>
            <right>392</right>
            <bottom>340</bottom>
        </rect>
        <style>rectangle</style>
        <showName> <true /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Geneva</font>
        <textSize>9</textSize>
        <textStyle>plain</textStyle>
        <name>Open App</name>
        <script>on mouseUpdoMenu "Open Application…"end mouseUp</script>
    </part>
    <part>
        <id>39</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <true /> </sharedText>
        <fixedLineHeight> <true /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <true /> </lockText>
        <rect>
            <left>227</left>
            <top>325</top>
            <right>304</right>
            <bottom>337</bottom>
        </rect>
        <style>transparent</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Geneva</font>
        <textSize>9</textSize>
        <textStyle>bold</textStyle>
        <textHeight>12</textHeight>
        <name>kard</name>
        <script></script>
    </part>
    <part>
        <id>40</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>488</left>
            <top>24</top>
            <right>504</right>
            <bottom>38</bottom>
        </rect>
        <style>transparent</style>
        <showName> <false /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <false /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font></font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>Home</name>
        <script>on mouseUpgo firstend mouseUp</script>
    </part>
    <part>
        <id>42</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>487</left>
            <top>37</top>
            <right>503</right>
            <bottom>53</bottom>
        </rect>
        <style>transparent</style>
        <showName> <false /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <false /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font></font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>Search Paths</name>
        <script>on mouseUpgo card"stacks"end mouseUp</script>
    </part>
    <part>
        <id>44</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>3</left>
            <top>24</top>
            <right>31</right>
            <bottom>323</bottom>
        </rect>
        <style>transparent</style>
        <showName> <false /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <false /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font></font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>clean</name>
        <script>on mouseUpif trapDoubleClick() is true then doACleanUp else doADeselectend mouseUp</script>
    </part>
    <part>
        <id>45</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>490</left>
            <top>66</top>
            <right>502</right>
            <bottom>81</bottom>
        </rect>
        <style>transparent</style>
        <showName> <false /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <false /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Geneva</font>
        <textSize>9</textSize>
        <textStyle>plain</textStyle>
        <name>SAFE</name>
        <script>on mouseUpgo card"Ft. Knox‚Ñ¢ Open"end mouseUp</script>
    </part>
    <part>
        <id>47</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <true /> </sharedText>
        <fixedLineHeight> <true /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <true /> </lockText>
        <rect>
            <left>7</left>
            <top>312</top>
            <right>58</right>
            <bottom>340</bottom>
        </rect>
        <style>shadow</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Geneva</font>
        <textSize>9</textSize>
        <textStyle>plain</textStyle>
        <textHeight>12</textHeight>
        <name>Coords</name>
        <script>on mouseUpif not trapDoubleClick(the rect of me) then exit mouseUpif the shiftKey is down then hide me else coordinatorend mouseUpon mouseStillDowndragTargetend mouseStillDown</script>
    </part>
    <part>
        <id>48</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <true /> </sharedText>
        <fixedLineHeight> <true /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <true /> </lockText>
        <rect>
            <left>439</left>
            <top>324</top>
            <right>510</right>
            <bottom>340</bottom>
        </rect>
        <style>shadow</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Geneva</font>
        <textSize>9</textSize>
        <textStyle>plain</textStyle>
        <textHeight>12</textHeight>
        <name>Clock</name>
        <script>on mouseUpif not trapDoubleClick(the rect of me) then exit mouseUpif the shiftKey is "down" then hide meelseput the date into mewait 1 secend ifend mouseUpon mouseStillDowndragTargetend mouseStillDown</script>
    </part>
    <part>
        <id>49</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>488</left>
            <top>81</top>
            <right>503</right>
            <bottom>96</bottom>
        </rect>
        <style>transparent</style>
        <showName> <false /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <false /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Geneva</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>Diagnostics</name>
        <script>on mouseUpgo cd "Diagnostics"end mouseUp</script>
    </part>
    <part>
        <id>50</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>489</left>
            <top>52</top>
            <right>502</right>
            <bottom>68</bottom>
        </rect>
        <style>transparent</style>
        <showName> <false /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <false /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>:HyperCard Stacks:Home</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>Applications</name>
        <script>on mouseUpgo card "applicationlauncher1"end mouseUp</script>
    </part>
    <content>
        <layer>background</layer>
        <id>39</id>
        <text>Applications</text>
    </content>
    <content>
        <layer>background</layer>
        <id>48</id>
        <text>5:36 PM</text>
    </content>
    <content>
        <layer>background</layer>
        <id>47</id>
        <text>Mouse:0,0</text>
    </content>
    <name>applications</name>
    <script>on openBackgroundset the cursor to 4lock screencreate menu "Manager"doADeselectshow menuBarend openBackgroundon closeBackgroundlock screenif there is a menu "Manager" then delete menu "Manager"end closeBackgroundon resumeStackopenBackgroundpass resumeStackend resumeStackon suspendStackcloseBackgroundpass suspendStackend suspendStackon doMenu itum,menuNameif menuName is not "Manager" then pass doMenuglobal MHselput the number of btns into xif itum is "Dragging" then toggleDragelse if itum is "Mouse Coordinates" then toggleCoordselse if itum is "Launch" then  --OPENgoSelCdput selBtn() into whereput selBtnName() into kdelete char 1 to 13 of kdelete last char of ksendIntercept openMe,whereif "--path: " is in line 1 of the script of (where)thenput line 1 of the script of (where) into kdelete char 1 to 8 of kend ifdoADeselectopen kexit doMenuelse if itum is "Rename…" then  --RENAMEgoSelCdput selBtnName() into oldNameput selBtn() into wheresendIntercept renameMe,wheredelete char 1 to 13 of oldNamedelete last char of oldNameask"New name for selected link:" with oldNameput it into ttif tt is empty then exit doMenuset the name of (where) to ttanswer "Change actual (Finder) name also?" with "Yes" or "No"if it is "Yes" thensendIntercept finderRenameMe,whereanswer file "Please locate this application." of type "APPL"if it is empty then exit doMenuput renameFile (it,tt) into erCif erC≠0 thenbeep 2answer"Couldn’t change actual name." with "Cancel"exit doMenuend ifend ifput the script of (where) into theScriptif "--path: " is in line 1 of theScriptthenput "--path: "&pathName(it)&tt into line 1 of theScriptset the script of (where) to theScriptend ifexit doMenuelse if itum is "Change Icon…" then  -- NEW ICONgoSelCdput selBtn() into wheresendIntercept iconMe,whereget chooseIcon("New icon for selected link:")if it is empty or it is 0 then exit doMenuset the icon of (where) to itexit doMenuelse if itum is "New Card" then  --NEW CARDset the cursor to 4lock screenset the lockMessages to truego to last cd in this bgput fld "page" into PFsend "doMenu New Card" to hyperCardput PF+1 into fld "page"send openCard to this cdexit doMenuelse if itum is "Remove Card" then --DELETE CARDif item 2 of MHsel is the number of this cd then doADeselectbeep 2answer"Do you really want to delete this entire card?" with "OK" or¬"Cancel"if it is "Cancel" then exit doMenuset the cursor to 4lock screenset the lockMessages to truedoMenu"delete card"send "go prev" to HyperCardif fld "page" is 1then set the icon of bg btn "prev" to "√Grey Prev Arrow"else set the icon of bg btn "prev" to "Prev Arrow"if fld "page"≥the number of cds of this bgthen put the number of cds of this bg into fld "page"if fld "page"=the number of cds of this bgthen set the icon of bg btn "next" to "√Grey Next Arrow"else set the icon of bg btn "next" to "Next Arrow"else if itum is "Clean Up All" thendoACleanUpexit doMenuelse if itum is "Clean Up Selection" thengoSelCddoACleanUp(the number of (selBtn()))exit doMenuelse if itum is "Place…" thengoSelCdput the number of btns into x --Ÿput selBtn() into whereput the number of (where) into nWhereask "Place selected button at what position? (1-"&x&")"¬with nWhereif it is nWhere or it is empty then exit doMenusendIntercept placeMe,whereif it<1 or it>x thenbeepexit doMenuend ifset the cursor to 4lock screensetUserLevelFiveselect(where)if it<nWhere thenrepeat until the number of (where)=itdoMenu "Send Farther"end repeatelserepeat until the number of (where)=itdoMenu "Bring Closer"end repeatend ifchoose browse toolrestoreUserLeveldoACleanUp(it)unlock screenput "If the button is not visible, try doing a CLEAN UP ALL."get the mouseLocwait until the mouseLoc is not ithide msgexit doMenuelse if itum is "Deselect" thendoADeselectexit doMenuelse if itum is "Add Application…" thenput (the shiftKey is "down") into shKeylock screenanswer file "Choose the application to add." of type "APPL"go to this cdput it into appFileif appFile=empty then exit doMenuset cursor to 4setUserLevelFiveput buttonName(appFile) into appNameput GetAppIcon(appFile,appName) into iconNoif iconNo="0" then exit doMenudoMenu "New Button"put the id of btn (x+1) into appIDset name of btn id appID to appNameset icon of btn id appID to iconNoset style of btn id appID to transparentif shKey is falsethen set the script of btn id appID to emptyelse set the script of btn id appID to "--path: "&appFileput pathName(appFile) into aCif aC&return is not in field "paths" of card "applications" thenif (last char of (field "paths" of card "applications")) is not return¬then put return after field"paths" of card "applications"put aC&return after field "paths" of card "applications"global applicationsput field "paths" of card "applications" into applicationsend ifchoose browse toolrestoreUserLeveldoACleanUp (x+1)else if itum is "Remove Link" then  --REMOVE AN APPLICATIONgoSelCdbeep 2put selBtn() into wheresendIntercept removeMe,whereanswer"Do you really want to remove this link?" with "OK"¬or "Cancel"if it is "OK" thenpush cdlock screendoADeselectset the cursor to 4setUserLevelFiveselect (where)doMenu"Clear Button"choose browse toolrestoreUserLeveldoADeselectend ifexit doMenuend ifupdMenusend doMenuon openCardif fld "page" is 1then set the icon of bg btn "prev" to "√Grey Prev Arrow"else set the icon of bg btn "prev" to "Prev Arrow"if fld "page"≥the number of cds of this bgthen put the number of cds of this bg into fld "page"if fld "page"=the number of cds of this bgthen set the icon of bg btn "next" to "√Grey Next Arrow"else set the icon of bg btn "next" to "Next Arrow"updMenusend openCardon idleglobal MHprefput the short time into field "Clock"if line 3 of MHpref is true and the shiftKey is upthen put the mouseLoc into line 2 of field "Coords"pass idleend idleon updMenusglobal MHpref,maxBtnsif there is no menu "Manager" then exit updMenusset the checkMark of menuItem "Dragging" of menu "Manager" to line 4 of MHprefset the checkMark of menuItem "Mouse Coordinates" of menu "Manager" to line 3 of MHprefset the enabled of menuItem "Remove Card" of menu "Manager" to (fld "page" is not 1)set the enabled of menuItem "Add Application…" of menu "Manager" to (the number of btns<maxBtns)end updMenuson longMgrif there is no menu "Manager" then exit longMgrput "Dragging,Mouse Coordinates,-,Launch,-,Rename…,Change Icon…,-,Add Application…,Remove Link,-,New Card,Remove Card,-,Clean Up Selection,Clean Up All,Place…,-,Deselect"¬into menu "Manager"updMenusend longMgron shortMgrif there is no menu "Manager" then exit shortMgrput "Dragging,Mouse Coordinates,-,Add Application…,-,New Card,Remove Card,-,Clean Up All"¬into menu "Manager"updMenusend shortMgron mouseUpif "Card Button" is not in the long name of the target then pass mouseUpglobal MHselset the cursor to 4doADeselectif trapDoubleClick(the rect of the target) is not true thensendIntercept selectMeput the id of the target into item 1 of MHselput the number of this cd into item 2 of MHselset the hilite of the target to truelongMgrexit mouseUpelsesendIntercept openMeput the short name of the target into kif "--path: " is in line 1 of the script of the targetthenput line 1 of the script of the target into kdelete char 1 to 8 of kend ifif k is not "HyperCard" then open kend ifend mouseUpon mouseStillDownif "Card Button" is not in the long name of the target then pass mouseStillDowndragTargetend mouseStillDownon reset whatif what≠"menuBar" then pass resetset the cursor to 4lock screensend "reset menuBar" to HyperCard --ŸmakeMHMenusglobal MHprefput false into line 15 of MHprefcreate menu "Manager"global MHselif MHsel is not empty then longMgr else shortMgrend reset</script>
</background>